/* pjsxw.t - PROJECT STRUCTURE CROSS REFERENCE WRITE TRIGGER              */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                    */
/* All rights reserved worldwide.  This is an unpublished work.           */
/*V8:ConvertMode=NoConvert*/
/**************************************************************************/
/*  Program :pjsxw.t                                                      */
/*  Author  :David Morris                                                 */
/*  Date    :12/01/99                                                     */
/*  Description: pjsx_det WRITE trigger program                           */
/*          This WRITE trigger records the last user to create or modify  */
/*          the project structure cross reference file with the date of   */
/*          modification.                                                 */
/**************************************************************************/
/*                             MODIFY LOG                                 */
/**************************************************************************/
/* REVISION: 9.1      CREATED: 12/01/99  BY: *N006*  David Morris         */
/* REVISION: 9.1     MODIFIED: 08/13/00  BY: *N0KQ* myb                   */

         TRIGGER PROCEDURE FOR WRITE OF PJSX_DET OLD BUFFER OLD_PJSX_DET.
         {mfdeclre.i}

            assign
               pjsx_det.pjsx_mod_userid = global_userid
               pjsx_det.pjsx_mod_date   = today.
